home *** CD-ROM | disk | FTP | other *** search
/ Oz - The Magical Adventure / Adventure.iso / pc / dkdata / pipes.dxr / Internal_32_move pourer.ls < prev    next >
Encoding:
Text File  |  2000-06-01  |  1.8 KB  |  78 lines
  1. on exitFrame
  2.   global gPipeScene, gNextMemberList
  3.   UpdateAnimSprites()
  4.   case gPipeScene of
  5.     1, 2, 3:
  6.       finalH = 296
  7.     4, 5, 6:
  8.       finalH = 406
  9.     7, 8, 9:
  10.       finalH = 492
  11.   end case
  12.   case gPipeScene of
  13.     1, 4, 7:
  14.       theBucket = "buckleft.08"
  15.     2, 5, 8:
  16.       theBucket = "buckcentre"
  17.     3, 6, 9:
  18.       theBucket = "buckright.09"
  19.   end case
  20.   if gNextMemberList = EMPTY then
  21.     if sprite(58).member.name contains ".01" then
  22.       sprite(58).member = "buckcentre"
  23.     end if
  24.     if sprite(58).member.name <> theBucket then
  25.       oldBucket = root(sprite(58).member.name)
  26.       case theBucket of
  27.         "buckleft.08":
  28.           if oldBucket = "buckcentre" then
  29.             PlaySeq(58, "buckleft", "fwd", EMPTY)
  30.           else
  31.             PlaySeq(58, "buckright", "rev", EMPTY)
  32.           end if
  33.         "buckright.09":
  34.           if oldBucket = "buckcentre" then
  35.             PlaySeq(58, "buckright", "fwd", EMPTY)
  36.           else
  37.             PlaySeq(58, "buckleft", "rev", EMPTY)
  38.           end if
  39.         "buckcentre":
  40.           if oldBucket = "buckright" then
  41.             PlaySeq(58, "buckright", "rev", EMPTY)
  42.           else
  43.             PlaySeq(58, "buckleft", "rev", EMPTY)
  44.           end if
  45.       end case
  46.     end if
  47.   end if
  48.   finished = 1
  49.   if sprite(59).locH < finalH then
  50.     sprite(59).locH = sprite(59).locH + 4
  51.     if sprite(59).locH > finalH then
  52.       sprite(59).locH = finalH
  53.     else
  54.       finished = 0
  55.     end if
  56.   else
  57.     if sprite(59).locH > finalH then
  58.       sprite(59).locH = sprite(59).locH - 4
  59.       if sprite(59).locH < finalH then
  60.         sprite(59).locH = finalH
  61.       else
  62.         finished = 0
  63.       end if
  64.     end if
  65.   end if
  66.   if gNextMemberList <> EMPTY then
  67.     finished = 0
  68.   end if
  69.   if not finished then
  70.     if not soundBusy(1) then
  71.       puppetSound(1, "rollbucketSFX")
  72.     end if
  73.     go(the frame)
  74.   else
  75.     sound stop 1
  76.   end if
  77. end
  78.